<%@ Import Namespace="System.Data" %>

<script  runat="server">
sub Page_Load
   if Not Page.IsPostBack then
     dim mycountries=New DataSet
     mycountries.ReadXml(MapPath("countries.xml"))
     rb.DataSource=mycountries
     rb.DataValueField="value"
     rb.DataTextField="text"
     rb.DataBind()
   end if
end sub

sub displayMessage(s as Object,e As EventArgs)
   lbl1.text="Your favorite country is: " & rb.SelectedItem.Text
end sub
</script>


<!DOCTYPE html>
<html>
<body>

<form runat="server">
<asp:RadioButtonList id="rb" runat="server"
AutoPostBack="True" onSelectedIndexChanged="displayMessage" />
<asp:label id="lbl1" runat="server" /></p>
</form>

</body>
</html>